home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr13 / golisp.zip / SLOT.LSP < prev    next >
Text File  |  1995-01-20  |  876b  |  28 lines
  1. ;Draws a round ended slot
  2. ;Bob Zelna
  3.  
  4. (DEFUN C:SLOT (/ A B C D E F HALF MID ACENTER BCENTER)
  5.   (SETVAR "CMDECHO" 0)
  6.   (SETQ A (GETPOINT "\nSlot start point: ")
  7.         B (GETPOINT A "\nSlot end point: ")
  8.         C (GETDIST B "\nHalfwidth or radius: ")
  9.         D (ANGLE A B)
  10.         HALF (* 0.5 (DISTANCE A B))
  11.         MID (POLAR A D HALF)
  12.         ACENTER (POLAR MID (- D PI) (- HALF C))
  13.         BCENTER (POLAR MID D (- HALF C))
  14.   )
  15.   (COMMAND "ARC" (SETQ E (POLAR ACENTER (+ D (* 0.5 PI)) C))
  16.                  (SETQ F (POLAR ACENTER (+ D PI) C))
  17.                  (SETQ F (POLAR ACENTER (+ D (* 1.5 PI)) C))
  18.   )
  19.   (COMMAND "LINE" F (SETQ F (POLAR BCENTER (- D (* 0.5 PI)) C)) "")
  20.   (COMMAND "ARC" F (SETQ F (POLAR BCENTER D C))
  21.                    (SETQ F (POLAR BCENTER (+ D (* 0.5 PI)) C))
  22.   )
  23.   (COMMAND "LINE" F E "")
  24.   (SETVAR "CMDECHO" 1)
  25. )
  26.  
  27.  
  28.